www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\adminModelComponentLabel\D_edit_custom_asp_label.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<htmL>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<LINK href="../css.css" type=text/css rel=stylesheet>
<%
dir_set="../../"
response.charset="gb2312"
%>
<%
'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************
%>
<!--#include file=../../inc/conn.asp-->
<!--#include file=../../inc/Functionb.asp-->
<!--#include file=../../inc/ajaxLIB.asp-->
<!--#include file=../inc/checkadmin2.asp-->
<!--#include file=../../inc/functionFiless.asp-->
<!--#include file=../../inc/ND_class_function.asp-->
<%
AJAXshowLoader()
%>
<style type="text/css">
<!--
.STYLE1 {color: #FF0000}
.STYLE2 {
color: #0033FF;
font-size: 15px;
font-weight: bold;
}
.STYLE3 {
color: #FF0000;
font-weight: bold;
}
-->
</style>
<%
function find_other_param(z_name)
rst2=""
if trim(nd1_other_params)<>"" and instr(1,nd1_other_params,":",1)<>0 then
other_params=split(nd1_other_params,"|")
for i=0 to ubound(other_params)
sss11=split(other_params(i),":")
sss11a=sss11(0)
sss11b=sss11(1)
if cstr(sss11a)=cstr(z_name) then
rst2=sss11b
exit for
end if
next
end if
rst2=replace(rst2,"$$sx_fengex1$","|")
rst2=replace(rst2,"$$sx_maohao$",":")
find_other_param=rst2
end function
%>
<script language="javascript">
var org_pos=1;
var now_pos=org_pos;
function add_p(aa,bb){
var theTable = document.getElementById("parms");
var rowNumber = parseFloat(theTable.rows.length);
theTable.insertRow(rowNumber);
theTable.rows[rowNumber].id="aaaaba"+now_pos;
//alert(theTable.rows[rowNumber].id);
theTable.rows[rowNumber].insertCell(0);
theTable.rows[rowNumber].cells[0].innerHTML = "<td>标签参数名"+now_pos+":<input name=c"+now_pos+" type=text value='"+aa+"'>,标签参数"+now_pos+"说明:<input name=s"+now_pos+" type=text value='"+bb+"'></td> <a href=# onclick=del_p('"+theTable.rows[rowNumber].id+"')>删除此参数</a>";
var aa = document.getElementById("params_len");
aa.value=now_pos;
now_pos=now_pos+1;
}
function del_p(r){
if (confirm("确认删除?")==1){
var theTable = document.getElementById("parms");
var r1 = document.getElementById(r);
var llln=parseFloat(theTable.rows.length)-1
for(var ia=0;ia<=llln;ia++)
{
if (theTable.rows[ia].id==r){
theTable.deleteRow(ia);
break;
}
}
}
}
</script>
<%
ss4=request("fname")
ss4=left(ss4,len(ss4)-1) '去掉最后一个/号
strDBPath1= left(ss4,instrrev(ss4,"/"))
'==========================================================
ztypee=request("labeltype")
if ztypee<>"" then
fph=left(request("fname"),len(request("fname"))-1)
fph2=split(fph,"/")
muluzz=""
for ii2=0 to ubound(fph2)-1
muluzz=muluzz&fph2(ii2)&"/"
next
sss1=loadfile("../../Model/ComponentLabels/"&muluzz&"index_componentlabel.asp")
if instr(1,sss1,"$componentlabelname:",1)<>0 then
nd1_m_label_name=trim(mid(sss1,instr(1,sss1,"$componentlabelname:",1)+20,instr(1,sss1,"$end_componentlabelname",1)-(instr(1,sss1,"$componentlabelname:",1)+20)))
else
nd1_m_label_name=""
end if
if instr(1,sss1,"$componentlabelcixu:",1)<>0 then
nd1_m_label_cixu=trim(mid(sss1,instr(1,sss1,"$componentlabelcixu:",1)+20,instr(1,sss1,"$end_componentlabelcixu",1)-(instr(1,sss1,"$componentlabelcixu:",1)+20)))
else
nd1_m_label_cixu=""
end if
if instr(1,sss1,"$is_sys_componentlabel:",1)<>0 then
nd1_m_label_is_sys=trim(mid(sss1,instr(1,sss1,"$is_sys_componentlabel:",1)+23,instr(1,sss1,"$end_is_sys_componentlabel",1)-(instr(1,sss1,"$is_sys_componentlabel:",1)+23)))
else
nd1_m_label_is_sys=""
end if
if ztypee="addmode" then
hzzza="addmode"
filezza="addmode_label.asp"
end if
if ztypee="editmode" then
hzzza="editmode"
filezza="editmode_label.asp"
end if
if ztypee="showmode" then
hzzza="showmode"
filezza="showmode_label.asp"
end if
if ztypee="do_add_mode" then
hzzza="doaddmode"
filezza="do_add_mode_label.asp"
end if
if ztypee="do_edit_mode" then
hzzza="doeditmode"
filezza="do_edit_mode_label.asp"
end if
end if
if ztypee<>"" then
bname=nd1_m_label_name&"$"&hzzza&"$"
else
bname=nd1_l_name
end if
'========================================================
sssssss1=""
for i=1 to len(ss4)
if mid(ss4,len(ss4)-i+1,1)="/" then
sssssss1=i
exit for
end if
next
if sssssss1<>"" then
sssssss1=right(ss4,sssssss1-1)
else
sssssss1=ss4
strDBPath1=""
end if
'strDBPath1=路径
'filename=文件名
filename=sssssss1
dddd=loadfile("../../Model/ComponentLabels/"&ss4)
call get_info_array_from_label_file_content(dddd)
%>
<div id="l_do" style="filter:blendTrans(duration=1); width:734px; z-index:-1; border: 1px dashed #999999;left: 3px; top: 120px; height: 40px;">
<form action="D_chk_edit_custom_asp_label.asp" method="post">
<table width=730 id="parms" name="parms">
<tr align="left">
<td>
<font style="font-size:17px; color:#ff0000">编辑 可带asp代码 的标签
</font>
<br><br>
标签保存路径:/Model/ComponentLabels/<%=strDBPath1%><%=filename%>
</td>
</tr>
<tr align="left">
<td>
<%
sssp=request("fpath")
if sssp<>"" then
sssspq=split(sssp,"/")
ooosss=""
sssr=ubound(sssspq)-1
dddds=sssspq(sssr)
end if
%>
<script language="javascript">
function del_fr(){
if (confirm("确认删除?")==1){
self.location="D_del_custom_asp_label.asp?fname=<%=ss4%>";
}
}
</script>
<%
'=================================================
if ztypee<>"" then
%>
<strong>标签名:</strong><span class="STYLE2">{$$<%=nd1_m_label_name%>$<%=hzzza%>$}
</span>
<%else%>
{$$<input name="bnm" type="text" value="<%=nd1_l_name%>">}（只能为字母，数字及_号的组合）
<%
end if
'=================================================
%>
<a href=# onclick="del_fr();"><font style="font-size:14px" color="#3300FF">
删除此标签</font></a>
</td>
</tr>
<tr align="left">
<td>
标签说明:<textarea name="lbsm" cols=40 rows=3><%=replace_asp_huanyuan(nd1_label_beizhu)%></textarea>
</td>
</tr>
</table>
<table>
<tr align="left">
<td>
<br />
<a href=# onclick="add_p('','');"><font style="font-size:14px" color="#3300FF">点击本处添加更多参数</font></a>
<br /><br />
如标签参数名1 填 name1,标签参数1说明 填 "名字参数"
</td>
</tr>
<tr align="left"><td>
<font style="font-size:14px" color="#3300FF">
标签代码支持与asp代码混合写,不支持标签嵌套,但是支持标签代码内再用标签<br />
在以下的 标签代码中 可以用 如 $xxvar$a来调用标签的参数列表里的a参数的值
<br />调用标签时还可以用$xx_var_asp$i来调用页面里asp代码中的i变量的值，
<br />
如{$$show_class(1,$xx_var_asp$i)，使标签与asp代码交互<br />
而用$xx_request_asp$i可以读request("i")的值<br />
系统使用的数据库连接对象名为newdsoft_conn_obj ，你可以调用这个连接对象<br />
</font>
</td>
</tr>
<tr align="left">
<td>
<script language= JavaScript>
function aaaar(aaa){
var arr=window.open(aaa, '', 'titlebar=no, toolbar=no, scrollbars=yes,top=20,left=10,Width=800, Height=600');
if(arr!=null){
}
else
{
alert("弹出窗口被系统拦截掉了,无法继续操作,请修改你ie系统设置!");
}
}
</script>
<!--input type=button onclick="aaaar('../D_select_a_label_before.asp')" value="点击本处选择并插入另一个标签到本标签代码里"-->
<br>
<br>
<strong> <a href="../adminModel/D_view_sys_cang_labels.asp" target="_blank"><font color="#0000FF" style="font-size:15px; text-decoration:underline">点击本处查看系统特殊标签</font></a></strong>
<br><br>
<table bgcolor="#F2F2F2" align="center" width=600 bgcolor="#CfCfCf" border="1" cellpadding="0">
<tr valign="middle" align="center">
<td width=50% bgcolor="#c9c9c9" height="20">
<a href="javascript:void(0)" onClick="chgedit('2')">使用可视化html文本编辑器</a></td>
<td width=50% bgcolor="#c9c9c9">
<a href="javascript:void(0)" onClick="chgedit('1')">使用纯文本编辑器</a>
</td>
</tr>
</table>
<br>
<input type="hidden" value="1" name="eemode" ID="eemode">
<script language="javascript">
function chgedit(a){
document.getElementById("eemode").value=a;
if (a=="1"){
document.getElementById("edt1").style.display="";
document.getElementById("edt2").style.display="none";
}
if (a=="2"){
document.getElementById("edt1").style.display="none";
document.getElementById("edt2").style.display="";
}
}
</script>
<table bgcolor="#F2F2F2" id="edt1">
<tr valign="middle" align="center"><td width=80>
标签代码：</td>
<td width=600>
<script src="../../inc/admin.js" type="text/javascript"></script>
<textarea name="Contentt" cols=70 rows=20><%=trim(replace(replace_textare_for_editor(nd1_label_code&""),"%",chr(37)))%></textarea>
<br><a href="javascript:admin_Size(-10,'Contentt')"><img src="../images/minus.gif" unselectable="on" border='0'></a> <a href="javascript:admin_Size(10,'Contentt')"><img src="../images/plus.gif" unselectable="on" border='0'></a>
</td>
</tr>
</table>
<hr />
<script language= JavaScript>
function aaaar(aaa){
var arr=window.open(aaa, '', 'titlebar=no, toolbar=no, scrollbars=yes,top=20,left=10,Width=800, Height=600');
if(arr!=null){
}
else
{
alert("弹出窗口被系统拦截掉了,无法继续操作,请修改你ie系统设置!");
}
}
</script>
<!--input type=button onclick="aaaar('../D_select_a_label_before.asp')" value="点击本处选择并插入另一个标签到本标签代码里"-->
<br>
<table id="edt2" style="display:none">
<tr valign="middle" align="center"><td width=80>
标签代码：</td>
<td width=600>
<textarea name="Content" id="Content" style="display:none"><%=trim(replace(replace_textare_for_editor(nd1_label_code&""),"%",chr(37)))%></textarea>
<script src="../../ND_editor/FCKeditor2_5/FCKeditor.js"></script>
<script type="text/javascript">
<!--
var oFCKeditor = new FCKeditor('Content') ;
oFCKeditor.BasePath = '../../ND_editor/FCKeditor2_5/' ;
oFCKeditor.ToolbarSet = 'Default' ;
oFCKeditor.Width = '100%' ;
oFCKeditor.Height = '500' ;
oFCKeditor.Value = document.all.Content.innerHTML ;
oFCKeditor.ReplaceTextarea() ;
//-->
</script>
</td>
</tr>
</table>
</td>
</tr>
<tr align="center" width=600>
<td>
<input type="hidden" name=fpath value="<%=request("fpath")%>" />
<input type="hidden" name="params_len" id="params_len" value="" />
<input type="hidden" name=p_page value="<%=request("p_page")%>"/>
<input type="hidden" name=fname value="<%=request("fname")%>"/>
<input type="hidden" name=labeltype value="<%=request("labeltype")%>" />
<input type="submit" value="修 改" />
</td>
</tr>
</table>
</form>
</div>
<script language=javascript>
var aa = document.getElementById("params_len");
aa.value=0;
<%
if trim(nd1_label_params)="" then
lll=-1
else
ssssppp=split(nd1_label_params,"|")
lll=ubound(ssssppp)
end if
%>
<% for i=0 to lll
ssssppp2=split(ssssppp(i),",")
sss1=ssssppp2(0)
sss2=ssssppp2(1)
sss1=replace(replace(sss1,chr(34),"”"),"'","‘")
sss2=replace(replace(sss2,chr(34),"”"),"'","‘")
%>
add_p("<%=sss1%>","<%=sss2%>");
<%next%>
AJAXfade(1,'l_do');
</script>
<%
AJAXcloseLoader()
%>
</html>